From 1ba4198fa6198aec819dd3484a84cefce61db483 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Fri, 24 Nov 2000 11:34:50 +0000 Subject: [PATCH] (checkbox): Add a small `X' to the the :on-glyph, so that it's distinguishable from the :off-glyph on dark-background displays. Set its background color too. --- lisp/wid-edit.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index dc43f76700c..db65fc1dfd4 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el @@ -1992,15 +1992,18 @@ when he invoked the menu." ;; We could probably do the same job as the images using single ;; space characters in a boxed face with a stretch specification to ;; make them square. - :on-glyph (create-image (make-bool-vector 49 1) + :on-glyph (create-image "\377\311\301\343\301\311\377" ; this is an `X' 'xbm t :width 7 :height 7 :foreground "grey75" ; like default mode line - :relief -3 :ascent 'center) + :background "black" + :relief -3 + :ascent 'center) :off "[ ]" :off-glyph (create-image (make-bool-vector 49 1) 'xbm t :width 7 :height 7 :foreground "grey75" - :relief 3 :ascent 'center) + :relief 3 + :ascent 'center) :help-echo "Toggle this item." :action 'widget-checkbox-action) -- 2.30.2